/*
type int
parse 5 5
parse 2+3 5
parse '2*3' 6
parse '2+3+4' 9
parse '2*3+4' 10
parse '2+3*4' 14
parse '2*3*4' 24
noparse x Additive 1
*/

Additive <- m:Multitive "+" a:Additive { m + a } / m:Multitive -> m
Multitive <- p:Primary "*" m:Multitive { p * m } / p:Primary -> p
Primary <- "(" a:Additive ")" -> a / d:Decimal -> d
Decimal <- "0" { 0 } / "1" { 1 } / "2" { 2 } / "3" { 3 } / "4" { 4 } /
	"5" { 5 } / "6" { 6 } / "7" { 7 } / "8" { 8 } / "9" { 9 }
